10 DEFINT A-Z:KEY OFF:SCREEN 0:WIDTH 80:COLOR 15,0:CLS
20 DIM B(16):FOR I=1 TO 15:B(I)=2^(15-I):NEXT I:B(0)=&H8000
30 LOCATE 1,1,0:PRINT CHR$(201);STRING$(78,205);CHR$(187);
40 FOR I=2 TO 24
50 LOCATE I,1:PRINT CHR$(186);:LOCATE I,80:PRINT CHR$(186);
60 NEXT I
70 LOCATE 25,1:PRINT CHR$(200);STRING$(78,205);CHR$(188);
80 DIM T$(4):T$(0)=" ":T$(1)=CHR$(223):T$(2)=CHR$(220):T$(3)=CHR$(219)
90 X0=9:Y0=8:FOR N=0 TO 3
100 FOR Y=0 TO 7:LOCATE Y0+Y,X0:READ A0,A1,B0,B1
110 A=CVI(CHR$(A1)+CHR$(A0)):B=CVI(CHR$(B1)+CHR$(B0))
120 FOR X=0 TO 15:M=0:IF B(X) AND A THEN M=1
130 IF B(X) AND B THEN M=M OR 2
140 PRINT T$(M);:NEXT X
170 NEXT Y:X0=X0+16
180 NEXT N
190 LOCATE 19,34:PRINT "Happy New Year";
200 PLAY "MBT150O3 C8C8L4C<G> E8E8L4EC C8E8L4GG F8E8D2"
210 PLAY "MBD8E8L4FF E8D8L4EC C8E8L4D<G B8>D8C2P4"
220 PLAY "MBC8C8L4C<G> E8E8L4EC C8E8L4GG F8E8D2"
230 PLAY "MBD8E8L4FF E8D8L4EC C8E8L4D<G B8>D8C2"
240 WHILE INPUT$(1)="":WEND
250 LOCATE 1,1,1:COLOR 7,0:CLS:END
300 DATA 16,0,8,12,127,112,0,64,34,64,20,64,255,126,8,72
310 DATA 127,72,8,72,10,72,41,72,72,136,136,136,41,8,16,8
320 DATA 8,0,8,8,15,252,17,0,17,0,33,16,95,248,17,0
330 DATA 17,0,17,4,255,254,1,0,1,0,1,0,1,0,1,0
340 DATA 16,128,16,128,16,128,16,136,91,252,84,136,80,136,144,136
350 DATA 16,136,31,254,16,128,17,64,17,32,18,16,20,14,24,4
360 DATA 0,32,0,240,31,0,16,0,17,0,33,0,33,4,127,254
370 DATA 1,0,1,0,9,32,9,16,17,8,33,12,69,4,2,0

